Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Bombardier_PC/BSCRIPTS.CST/00014_Script_mouse changes

Text File | 1999-04-25 | 1KB | 51 lines

-- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
-- Developed for Bombardier, Inc.
--
-- All programming developed by:
-- Robert Fabricant, Valerie Valoueva, Ossi Shaked,
-- Henry Sauvageot, Chris Howell & Chris Girand
--
-- Use of this code by parties other than @radical.media, inc. or their
--agents
-- without the express written consent of @radical.media, inc. AND Concurrent
-- New Media Group, L.L.C. is strictly prohibited.
------------------------------------------------------

property rolledOver

on new me
  set rolledOver = FALSE
end

on getbehaviorDescription
  return "changes the image on rollover"
end

on mouseenter me
  if not rolledOver then
    set the castnum of sprite the spritenum of me to the castnum of sprite the spritenum of me +1
    puppetsound 3, "subrollOld"
    updatestage
    set rolledOver = TRUE
  end if
end

on mouseleave me
  if rolledOver then
    set the castnum of sprite the spritenum of me to the castnum of sprite the spritenum of me  -1
    updatestage
    set rolledOver = FALSE
  end if

end

on mouseup
  if rolledOver then
    sound stop 1
    sound stop 2
    updatestage
    puppetsound 3,"mouse5"
    pass
  end if
end